home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000336_bounce-amos-lis…et@onelist.com_Sun Sep 20 09:00:48 1998.msg < prev    next >
Text File  |  1998-10-01  |  5KB  |  123 lines
  1. >From bounce-amos-list--1206-mcox=access.digex.net@onelist.com  Sun Sep 20 09:00:47 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.135.253])
  3.     by pony-1.mail.digex.net (8.8.8/8.8.8) with SMTP id JAA11897
  4.     for <mcox@access.digex.net>; Sun, 20 Sep 1998 09:00:47 -0400 (EDT)
  5. Received: (qmail 15990 invoked by alias); 20 Sep 1998 12:57:48 -0000
  6. Received: (qmail 15984 invoked from network); 20 Sep 1998 12:57:46 -0000
  7. Received: from unknown (HELO mail.enterprise.net) (194.72.192.18) by pop.onelist.com with SMTP; 20 Sep 1998 12:57:46 -0000
  8. Received: from enterprise.net (root@ppp346.enterprise.net [194.72.196.92]) by mail.enterprise.net (8.8.5/8.8.5) with SMTP id OAA17708 for <amos-list@onelist.com>; Sun, 20 Sep 1998 14:00:40 +0100 (GMT/BST)
  9. From: Andrew Crowe <andrewcrowe@enterprise.net>
  10. To: amos-list@onelist.com
  11. Date: Sun, 20 Sep 1998 14:00:24 +0000
  12. Message-ID: <yam7567.1248.1196511448@mail.enterprise.net>
  13. In-Reply-To: <35FCC754.4C39F5CD@hp-sc.univ-lille2.fr>
  14. X-Mailer: YAM 2.0 Preview5 - Amiga Mailer by Marcel Beck - http://www.yam.ch
  15. Organization: Manta Soft
  16. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  17. Delivered-To: mailing list amos-list@onelist.com
  18. Precedence: bulk
  19. Reply-to: amos-list@onelist.com
  20. Mime-Version: 1.0
  21. Content-Type: text/plain
  22. Subject: [amos-list] Re: Audio-Digitizer
  23. Status: O
  24. X-Status: 
  25.  
  26. From: Andrew Crowe <andrewcrowe@enterprise.net>
  27.  
  28. Hi Everybody,
  29.  
  30. >>  In the techno Sound manual it explanes how to make a sampling prog.
  31. I
  32. >> tried doing one in amos, but its crap - if you try recording it to
  33. >> doesn't record propperly at all (must be amos' slow Peek/Poke speed).
  34. If
  35. >> you put the output to lines you get a nice ocillascope effect though!
  36. >> 
  37. >>    I can post a copy if you want.
  38.  
  39. > Yes, post it !
  40. > Is that proggy AMOS1.3 compatible ?
  41.  
  42.  
  43. Ok, sorry about the delay, but here it is ;)
  44.  
  45.    And yes, it does work with 1.3
  46.  
  47. --------------------------------------------------
  48.  
  49.  
  50. Screen Open 0,320,256,2,Lowres
  51. Double Buffer : Autoback 0
  52.  
  53.  
  54. Poke $BFE301,0
  55. Poke $BFD200,6
  56. Poke $BFD000,2
  57. '
  58. ' This sets the sampler up 
  59. '
  60. '
  61.  
  62.  
  63. Do 
  64.  
  65.    Plot 0,128
  66.    
  67.    For A=0 To 320
  68.       P=Peek($BFE101)
  69.       'This reads the current volume 
  70.       '
  71.  
  72.       Draw To A,P
  73.    Next 
  74.  
  75.    Screen Swap 
  76.    Wait Vbl 
  77.    Cls 0
  78.    
  79. Loop 
  80.  
  81. --------------------------------------------------
  82.  
  83.  
  84. See ya.
  85. -- 
  86.                                 <PRE>
  87.   - --------------------- Quote of the day: ---------------------- -
  88. You cannot kill time without injuring eternity.
  89. -- Thoreau
  90.  
  91. +--------------------------------------------------------------------+
  92. |                                                ,aNNN               |
  93. |  a&   NL                 ,a,                 ,gNNNNN               |
  94. |  @7L d 0   ,a,,aw ,a,,  JN Q,  ,a,,aw,,,,  ,gNM"`NN'               |
  95. | J  9w"  K N" "" NN"""""WF  ~3&N" "" N   ""^N"    NF                |
  96. | N , " , Nd ,@M, NN JML @ML d@N ,@4, N       ',  JK                 |
  97. |d JMc dN  N  NN  NN 0 1 1J1 0 0  NN  N         L,K                  |
  98. |N,N 0w' Na@h,,a,,NQ,0 &J1J&,0  \,,a,,N         JF                   |
  99. | ""  "  ~"  ""~"""~"" ""  """  t""~"""        j"1                   |
  100. |                               F             JgmJ        ,gm        |
  101. |                               F            N"  N  ,,    F ,N gNN   |
  102. |      Andrew Crowe             Q          jJF  mP p""9w,NL NwmP 0mw |
  103. |      ~~~~~~~~~~~~             ]         / I  0 F@ am, Nw  ,0&   ,N |
  104. |       Manta Soft             ,F\      a' ,N  Nf L E 0 0ML N""N 0"  |
  105. |       ~~~~~~~~~~            ,N  \,  ,P N@"  JF  & `@" NJL N  N 0   |
  106. |                            ,N     ad"   \wam"   `Nx,aN JNmN  NmN   |
  107. |                            NN ,,gN" ""PP"                          |
  108. |                           dNNNNN"                                  |
  109. |                           NNN@"      Web Designing and          // |
  110. | Visit our Web Site:       ""               Amiga Programming \\//  |
  111. |                                                                    |
  112. |     HTTP://www.geocities.com/Eureka/Gold/1713/                     |
  113. |                                                                    |
  114. +----------------------------+      This signature was created using |
  115. | andrewcrowe@enterprise.net |         AsciiArt Studio               |
  116. +----------------------------+---------------------------------------+
  117.                                 </PRE>
  118.  
  119.  
  120. ------------------------------------------------------------------------
  121. Help support ONElist, while generating interest in your product or
  122. service. ONElist has a variety of advertising packages. Visit
  123. http://www.onelist.com/advert.html for more information.